home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 7 / PC World Interactive 7.iso / program / pasprog.EXE / KALIN-IS.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1980-01-10  |  1.6 KB  |  90 lines
  1.  
  2.  
  3.  
  4.  
  5. Program Matris;
  6.  
  7. Uses crt;
  8.  
  9. Var
  10.   a : array[1..3,1..4] of real;
  11.  
  12. Procedure matris_al;
  13. var  i,j:integer;
  14. begin
  15.   for i:=1 to 3 do
  16.       begin
  17.       for j:=1 to 4 do
  18.        begin
  19.        gotoxy(j*4,i*2);read(a[i,j]);
  20.        end;
  21.      end; { for }
  22. end; { matris_al }
  23.  
  24. Procedure matris_yaz;
  25. var  i,j:integer;
  26. begin
  27.   for i:=1 to 3 do
  28.       begin
  29.       for j:=1 to 4 do
  30.           write(a[i,j]:2:1,'   ');{üç boƒluk}
  31.           writeln;
  32.      end; { for }
  33. end; { matris_yaz }
  34.  
  35. Procedure birinci;
  36. var
  37.   i,j : integer;
  38.   oran2,oran3 : real;
  39. begin
  40.   oran2:=a[2,1]/a[1,1];
  41.   oran3:=a[3,1]/a[1,1];
  42.   writeln('R2 = R2 -(',a[2,1]:2:1,'/',a[1,1]:2:1,')*','R1');
  43.   writeln('R3 = R3 -(',a[3,1]:2:1,'/',a[1,1]:2:1,')*','R1');
  44.   writeln;
  45.   for j:=1 to 4 do
  46.       a[2,j]:=a[2,j]-oran2*a[1,j];
  47.  
  48.   for j:=1 to 4 do
  49.       a[3,j]:=a[3,j]-oran3*a[1,j];
  50. end; { birinci }
  51.  
  52. Procedure ikinci;
  53. var
  54.   j : integer;
  55.   oran33 : real;
  56. begin
  57.   oran33:=a[3,2]/a[2,2];
  58.   writeln('R3 = R3 -(',a[3,2]:2:1,'/',a[2,2]:2:1,')*R2');
  59.   writeln;
  60.   for j:=1 to 4 do
  61.       a[3,j]:=a[3,j]-oran33*a[2,j];
  62. end;
  63.  
  64. Procedure sonuc_yaz;
  65. var
  66.    x1,x2,x3:real;
  67. begin
  68.   writeln('üçüncü satìrdan yararlanarak:');
  69.  
  70.   x3:=a[3,4]/a[3,3];
  71.   writeln('X3=',x3:2:1);
  72.  
  73.   writeln('X3''ü ikinci satìrda yerine koyarsak:');
  74.   x2:=(a[2,4]-a[2,3]*x3)/a[2,2];
  75.   writeln('X2=',x2:2:1);
  76.  
  77.   writeln('X2 ve X3''ü ilk satìrda yerlerine koyarsak:');
  78.   x1:=(a[1,4]-a[1,3]*x3-a[1,2]*x2)/a[1,1];
  79.   writeln('X1=',x1:2:1);
  80. end; { sonuc_yaz }
  81.  
  82. BEGIN
  83.   clrscr;
  84.   matris_al;
  85.   birinci;
  86.   matris_yaz;
  87.   ikinci;
  88.   matris_yaz;
  89.   sonuc_yaz;
  90. END.